home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / hardware / inoutbrd.lha / in-out-board / amos_sources / Port_Ausgabe_1.Amos / Port_Ausgabe_1.amosSourceCode
AMOS Source Code  |  1995-11-28  |  2KB  |  71 lines
  1. '**************************************************************************
  2. '*                                                                        *
  3. '*                    Programm: Port_Ausgabe_1.Amos                       *
  4. '*                                                                        *
  5. '*                    ï¿½ 1993,94,95 Andreas Heinrich                       *  
  6. '*                                                                        *
  7. '**************************************************************************
  8. '
  9. '
  10. '        Dieses Programm schreibt an Port 3 den Wert der Variable N
  11. '             Dabei wird N hochgez�hlt bis 255 erreicht wird.  
  12. '
  13. '
  14. '**************************************************************************
  15. '
  16. '  A=Port selektieren
  17. '  N=Wert an diesem Port geben 
  18.    Global A,N
  19.    Hide On : Curs Off 
  20. '
  21. '
  22. A=3 : Rem       Ausgabeport 3 wird ausgew�hlt -> IC 4  
  23. N=0 : Rem       Wert 0 in N
  24. '
  25. INIT : Rem      Nach dem einschalten einmal aufrufen  
  26. '
  27. '**************************** Hauptprogramm *******************************
  28. '
  29. '               Und hier wird an Port 3 der Wert N hochgez�hlt 
  30. '
  31. NOCH_EINMAL:
  32. For X=0 To 255
  33. N=X
  34. Print N : Rem              N auf Bildschirm ausgegeben 
  35. SCHREIBEN
  36. Wait 25 : Rem              Zur besseren Kontrolle wird das Programm  
  37. '                          gebremst. 
  38. '                          Um volle Geschwindigkeit zu bekommen, die 
  39. '                          Print und Wait - Anweisung herausnehmen.
  40. Next X
  41. Print 
  42. Centre "Noch einmal ? Dann eine Taste dr�cken."
  43. Print 
  44. Print 
  45. Centre "Oder Abbruch mit Ctrl - C"
  46. Print 
  47. Print 
  48. '                          Warten bis Taste gedr�ckt.  
  49. Wait Key 
  50. Goto NOCH_EINMAL : Rem     Und noch einmal
  51. '
  52. '
  53. '************************** Proceduren ********************************  
  54. '
  55. Procedure SCHREIBEN
  56. '
  57. Poke 12570624,248+A : Rem  Adresse A selektieren 
  58. Poke 12575489,255 : Rem    Port als Ausgang schalten 
  59. Poke 12574977,N : Rem      Wert N schreiben
  60. Poke 12570624,255 : Rem    Ready LED einschalten 
  61. '
  62. End Proc
  63. '
  64. Procedure INIT
  65. '
  66. Poke 12571136,199 : Rem    Busy,P-aus und SEL=Bitmuster Ausgabe
  67. Poke 12570624,255 : Rem    Adresse 7 selektieren (Ready LED ein) 
  68. Poke 12575489,0 : Rem      Port als Eingang schalten   
  69. '
  70. End Proc
  71. '